home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / D-H / Effects Specialist.sea / EffectsSpecialistDemo™.rsrc / FYps_10071_•Spiral < prev    next >
Text File  |  1991-06-19  |  695b  |  25 lines
  1. %! •Spiral
  2. %% ©1986-1991, Postcraft International, Inc., All Rights Reserved
  3. %% 91/02/24 Designed by Paul McLellan
  4. %% For use only in files created by Effects Specialist
  5. /InsideShade {Intrnals0} def
  6. /OutlineShade {Intrnals1} def
  7. /OutlineSize Intrnals2 def
  8. /CirclePlace Intrnals3 def
  9. /TextDirection Intrnals4 def
  10. /Complexity Intrnals5 def
  11. %%
  12. pop kP Intrnals6
  13. CalcRadius CalcSpiral
  14. /DeltaScale TextDirection (In) eq
  15.   { 0.36 1 N div exp}
  16.   { 0.44 1 N div exp} ifelse def
  17. gsave
  18.   CirclePlace rotate
  19.   /GrafProc { true charpath InsideShade MyF } def
  20.   WhirlForAll grestore
  21. gsave OutlineSize setlinewidth
  22.   CirclePlace rotate
  23.   /GrafProc { true charpath OutlineShade MyS } def
  24.   WhirlForAll grestore
  25.